home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •Interesting Stuff• / Fortune Cookie •••• / Fortune / Fortune.rsrc / CODE_1.txt < prev    next >
Text File  |  1987-02-19  |  62KB  |  1,135 lines
  1. # near model CODE resource
  2. # jump table entries: 0-0 (1 of them)
  3. fn00000000:
  4. 00000000  4E56 FFFA                link       A6, -0x0006
  5. 00000004  42A7                     clr.l      -[A7]
  6. 00000006  A975                     syscall    TickCount
  7. 00000008  201F                     move.l     D0, [A7]+
  8. 0000000A  2D40 FFFC                move.l     [A6 - 0x4], D0
  9. 0000000E  362E 0008                move.w     D3, [A6 + 0x8]
  10. 00000012  E343                     asl        D3.w, 1
  11. 00000014  C6FC 005A                mulu.w     D3, 0x5A /* 'Z' */
  12. 00000018  3D43 FFFA                move.w     [A6 - 0x6], D3
  13. 0000001C  0C6E 012C FFFA           cmpi.w     [A6 - 0x6], 0x12C
  14. 00000022  6C06                     bge        +0x8 /* 0000002A */
  15. 00000024  3D7C 012C FFFA           move.w     [A6 - 0x6], 0x12C
  16. label0000002A:
  17. 0000002A  0C6E 02D0 FFFA           cmpi.w     [A6 - 0x6], 0x2D0
  18. 00000030  6F06                     ble        +0x8 /* 00000038 */
  19. 00000032  3D7C 02D0 FFFA           move.w     [A6 - 0x6], 0x2D0
  20. label00000038:
  21. 00000038  4267                     clr.w      -[A7]
  22. 0000003A  3F3C FFFF                move.w     -[A7], 0xFFFF
  23. 0000003E  4EBA 0ACC                jsr        [PC + 0xACC /* 00000B0C */]
  24. 00000042  584F                     addq.w     A7, 4
  25. label00000044:
  26. 00000044  42A7                     clr.l      -[A7]
  27. 00000046  A975                     syscall    TickCount
  28. 00000048  201F                     move.l     D0, [A7]+
  29. 0000004A  90AE FFFC                sub.l      D0, [A6 - 0x4]
  30. 0000004E  362E FFFA                move.w     D3, [A6 - 0x6]
  31. 00000052  48C3                     ext.l      D3
  32. 00000054  B083                     cmp.l      D0, D3
  33. 00000056  6C14                     bge        +0x16 /* 0000006C */
  34. 00000058  4267                     clr.w      -[A7]
  35. 0000005A  3F3C 000A                move.w     -[A7], 0xA /* '\n' */
  36. 0000005E  486D FFB0                pea.l      [A5 - 0x50]
  37. 00000062  A970                     syscall    GetNextEvent
  38. 00000064  101F                     move.b     D0, [A7]+
  39. 00000066  4A00                     tst.b      D0
  40. 00000068  6602                     bne        +0x4 /* 0000006C */
  41. 0000006A  60D8                     bra        -0x26 /* 00000044 */
  42. label0000006C:
  43. 0000006C  2F2D FFAC                move.l     -[A7], [A5 - 0x54]
  44. 00000070  A92D                     syscall    CloseWindow
  45. 00000072  4E5E                     unlink     A6
  46. 00000074  4E75                     rts
  47. fn00000076:
  48. 00000076  4E56 E8CC                link       A6, -0x1734
  49. 0000007A  486D FFA8                pea.l      [A5 - 0x58]
  50. 0000007E  A86E                     syscall    InitGraf
  51. 00000080  A8FE                     syscall    InitFonts
  52. 00000082  A912                     syscall    InitWindows
  53. 00000084  A930                     syscall    InitMenus
  54. 00000086  486E E8CC                pea.l      [A6 - 0x1734]
  55. 0000008A  4EBA 068A                jsr        [PC + 0x68A /* 00000716 */]
  56. 0000008E  584F                     addq.w     A7, 4
  57. 00000090  2B6E E8CC FF2A           move.l     [A5 - 0xD6], [A6 - 0x1734]
  58. 00000096  45FA 041E                lea.l      A2, [PC + 0x41E /* 000004B6, value 0x21466F72 '!For' */]
  59. 0000009A  2D4A E8D8                move.l     [A6 - 0x1728], A2
  60. 0000009E  4267                     clr.w      -[A7]
  61. 000000A0  2F2E E8D8                move.l     -[A7], [A6 - 0x1728]
  62. 000000A4  A88C                     syscall    StringWidth
  63. 000000A6  301F                     move.w     D0, [A7]+
  64. 000000A8  362D FF3A                move.w     D3, [A5 - 0xC6]
  65. 000000AC  9640                     sub.w      D3, D0
  66. 000000AE  48C3                     ext.l      D3
  67. 000000B0  87FC 0002                divs.w     D3, 0x2
  68. 000000B4  3F03                     move.w     -[A7], D3
  69. 000000B6  3F3C 000E                move.w     -[A7], 0xE
  70. 000000BA  A893                     syscall    MoveTo
  71. 000000BC  2F2E E8D8                move.l     -[A7], [A6 - 0x1728]
  72. 000000C0  A884                     syscall    DrawString
  73. 000000C2  4267                     clr.w      -[A7]
  74. 000000C4  487A 0413                pea.l      [PC + 0x413 /* 000004D9, value 0x7436F6F, pstring "Cookies" */]
  75. 000000C8  A997                     syscall    OpenResFile
  76. 000000CA  301F                     move.w     D0, [A7]+
  77. 000000CC  3D40 FFFA                move.w     [A6 - 0x6], D0
  78. 000000D0  0C6E FFFF FFFA           cmpi.w     [A6 - 0x6], 0xFFFF
  79. 000000D6  6600 00CE                bne        +0xD0 /* 000001A6 */
  80. 000000DA  3F3C 000A                move.w     -[A7], 0xA /* '\n' */
  81. 000000DE  3F3C 000E                move.w     -[A7], 0xE
  82. 000000E2  A893                     syscall    MoveTo
  83. 000000E4  487A 03FC                pea.l      [PC + 0x3FC /* 000004E2, value 0x53F3F2F, pstring "??/??" */]
  84. 000000E8  A884                     syscall    DrawString
  85. 000000EA  486E FFEC                pea.l      [A6 - 0x14]
  86. 000000EE  362D FF3A                move.w     D3, [A5 - 0xC6]
  87. 000000F2  967C 00FA                sub.w      D3, 0xFA
  88. 000000F6  48C3                     ext.l      D3
  89. 000000F8  87FC 0002                divs.w     D3, 0x2
  90. 000000FC  3F03                     move.w     -[A7], D3
  91. 000000FE  362D FF38                move.w     D3, [A5 - 0xC8]
  92. 00000102  967C 0016                sub.w      D3, 0x16
  93. 00000106  48C3                     ext.l      D3
  94. 00000108  87FC 0002                divs.w     D3, 0x2
  95. 0000010C  3F03                     move.w     -[A7], D3
  96. 0000010E  362D FF3A                move.w     D3, [A5 - 0xC6]
  97. 00000112  D67C 00FA                add.w      D3, 0xFA
  98. 00000116  48C3                     ext.l      D3
  99. 00000118  87FC 0002                divs.w     D3, 0x2
  100. 0000011C  3F03                     move.w     -[A7], D3
  101. 0000011E  362D FF38                move.w     D3, [A5 - 0xC8]
  102. 00000122  D67C 0016                add.w      D3, 0x16
  103. 00000126  48C3                     ext.l      D3
  104. 00000128  87FC 0002                divs.w     D3, 0x2
  105. 0000012C  3F03                     move.w     -[A7], D3
  106. 0000012E  A8A7                     syscall    SetRect
  107. 00000130  42A7                     clr.l      -[A7]
  108. 00000132  42A7                     clr.l      -[A7]
  109. 00000134  486E FFEC                pea.l      [A6 - 0x14]
  110. 00000138  487A 03AF                pea.l      [PC + 0x3AF /* 000004E9, value 0xA4E6F20 '\nNo ', pstring "No Cookies" */]
  111. 0000013C  3F3C FFFF                move.w     -[A7], 0xFFFF
  112. 00000140  3F3C 0010                move.w     -[A7], 0x10
  113. 00000144  2F3C FFFF FFFF           move.l     -[A7], 0xFFFFFFFF
  114. 0000014A  4267                     clr.w      -[A7]
  115. 0000014C  42A7                     clr.l      -[A7]
  116. 0000014E  A913                     syscall    NewWindow
  117. 00000150  201F                     move.l     D0, [A7]+
  118. 00000152  2B40 FFAC                move.l     [A5 - 0x54], D0
  119. 00000156  2F2D FFAC                move.l     -[A7], [A5 - 0x54]
  120. 0000015A  A873                     syscall    SetPort
  121. 0000015C  4267                     clr.w      -[A7]
  122. 0000015E  A887                     syscall    TextFont
  123. 00000160  45FA 0393                lea.l      A2, [PC + 0x393 /* 000004F5, value 0x1F546865, pstring "The Cookies file was not found." */]
  124. 00000164  2D4A E8D8                move.l     [A6 - 0x1728], A2
  125. 00000168  4267                     clr.w      -[A7]
  126. 0000016A  2F2E E8D8                move.l     -[A7], [A6 - 0x1728]
  127. 0000016E  A88C                     syscall    StringWidth
  128. 00000170  301F                     move.w     D0, [A7]+
  129. 00000172  363C 00FA                move.w     D3, 0xFA
  130. 00000176  9640                     sub.w      D3, D0
  131. 00000178  48C3                     ext.l      D3
  132. 0000017A  87FC 0002                divs.w     D3, 0x2
  133. 0000017E  3F03                     move.w     -[A7], D3
  134. 00000180  3F3C 000F                move.w     -[A7], 0xF
  135. 00000184  A893                     syscall    MoveTo
  136. 00000186  2F2E E8D8                move.l     -[A7], [A6 - 0x1728]
  137. 0000018A  A884                     syscall    DrawString
  138. 0000018C  3F3C 000A                move.w     -[A7], 0xA /* '\n' */
  139. 00000190  A9C8                     syscall    SysBeep
  140. 00000192  3D7C 0001 FFF4           move.w     [A6 - 0xC], 0x1
  141. 00000198  3F2E FFF4                move.w     -[A7], [A6 - 0xC]
  142. 0000019C  4EBA FE62                jsr        [PC - 0x19E /* 00000000 */]
  143. 000001A0  544F                     addq.w     A7, 2
  144. 000001A2  6000 0300                bra        +0x302 /* 000004A4 */
  145. label000001A6:
  146. 000001A6  4267                     clr.w      -[A7]
  147. 000001A8  2F3C 5354 5223           move.l     -[A7], 0x53545223 /* 'STR#' */
  148. 000001AE  A99C                     syscall    CountResources
  149. 000001B0  301F                     move.w     D0, [A7]+
  150. 000001B2  3D40 FFFE                move.w     [A6 - 0x2], D0
  151. 000001B6  4267                     clr.w      -[A7]
  152. 000001B8  A99B                     syscall    SetResLoad
  153. 000001BA  426E FFFC                clr.w      [A6 - 0x4]
  154. 000001BE  3D7C 0001 FFF6           move.w     [A6 - 0xA], 0x1
  155. 000001C4  602C                     bra        +0x2E /* 000001F2 */
  156. label000001C6:
  157. 000001C6  42A7                     clr.l      -[A7]
  158. 000001C8  2F3C 5354 5223           move.l     -[A7], 0x53545223 /* 'STR#' */
  159. 000001CE  3F2E FFF6                move.w     -[A7], [A6 - 0xA]
  160. 000001D2  A99D                     syscall    GetIndResource
  161. 000001D4  201F                     move.l     D0, [A7]+
  162. 000001D6  2D40 FFE6                move.l     [A6 - 0x1A], D0
  163. 000001DA  4267                     clr.w      -[A7]
  164. 000001DC  2F2E FFE6                move.l     -[A7], [A6 - 0x1A]
  165. 000001E0  A9A4                     syscall    HomeResFile
  166. 000001E2  301F                     move.w     D0, [A7]+
  167. 000001E4  B06E FFFA                cmp.w      D0, [A6 - 0x6]
  168. 000001E8  6704                     beq        +0x6 /* 000001EE */
  169. 000001EA  526E FFFC                addq.w     [A6 - 0x4], 1
  170. label000001EE:
  171. 000001EE  526E FFF6                addq.w     [A6 - 0xA], 1
  172. label000001F2:
  173. 000001F2  362E FFF6                move.w     D3, [A6 - 0xA]
  174. 000001F6  B66E FFFE                cmp.w      D3, [A6 - 0x2]
  175. 000001FA  6FCA                     ble        -0x34 /* 000001C6 */
  176. 000001FC  362E FFFC                move.w     D3, [A6 - 0x4]
  177. 00000200  976E FFFE                sub.w      [A6 - 0x2], D3
  178. 00000204  3F3C FFFF                move.w     -[A7], 0xFFFF
  179. 00000208  A99B                     syscall    SetResLoad
  180. 0000020A  4267                     clr.w      -[A7]
  181. 0000020C  A861                     syscall    Random
  182. 0000020E  301F                     move.w     D0, [A7]+
  183. 00000210  3D40 FFEA                move.w     [A6 - 0x16], D0
  184. 00000214  0C6E 0000 FFEA           cmpi.w     [A6 - 0x16], 0x0
  185. 0000021A  6C0C                     bge        +0xE /* 00000228 */
  186. 0000021C  362E FFEA                move.w     D3, [A6 - 0x16]
  187. 00000220  4443                     neg.w      D3
  188. 00000222  3D43 FFEA                move.w     [A6 - 0x16], D3
  189. 00000226  6006                     bra        +0x8 /* 0000022E */
  190. label00000228:
  191. 00000228  3D6E FFEA FFEA           move.w     [A6 - 0x16], [A6 - 0x16]
  192. label0000022E:
  193. 0000022E  362E FFEA                move.w     D3, [A6 - 0x16]
  194. 00000232  3F03                     move.w     -[A7], D3
  195. 00000234  2F0F                     move.l     -[A7], A7
  196. 00000236  486D FFC0                pea.l      [A5 - 0x40]
  197. 0000023A  3F3C 200E                move.w     -[A7], 0x200E
  198. 0000023E  A9EB                     syscall    Pack4/FP68K
  199. 00000240  544F                     addq.w     A7, 2
  200. 00000242  6008                     bra        +0xA /* 0000024C */
  201. 00000244  40DF                     move.w     [A7]+, SR
  202. 00000246  FFC0                     .invalid   <<F/7/7>>
  203. 00000248  0000 0000                ori.b      D0, 0x0
  204. label0000024C:
  205. 0000024C  487A FFF6                pea.l      [PC - 0xA /* 00000244, value 0x40DFFFC0 */]
  206. 00000250  486D FFC0                pea.l      [A5 - 0x40]
  207. 00000254  3F3C 0806                move.w     -[A7], 0x806
  208. 00000258  A9EB                     syscall    Pack4/FP68K
  209. 0000025A  362E FFFE                move.w     D3, [A6 - 0x2]
  210. 0000025E  5343                     subq.w     D3, 1
  211. 00000260  3F03                     move.w     -[A7], D3
  212. 00000262  2F0F                     move.l     -[A7], A7
  213. 00000264  486D FFCA                pea.l      [A5 - 0x36]
  214. 00000268  3F3C 200E                move.w     -[A7], 0x200E
  215. 0000026C  A9EB                     syscall    Pack4/FP68K
  216. 0000026E  544F                     addq.w     A7, 2
  217. 00000270  486D FFCA                pea.l      [A5 - 0x36]
  218. 00000274  486D FFC0                pea.l      [A5 - 0x40]
  219. 00000278  3F3C 0004                move.w     -[A7], 0x4
  220. 0000027C  A9EB                     syscall    Pack4/FP68K
  221. 0000027E  6008                     bra        +0xA /* 00000288 */
  222. 00000280  3FF0 0000                move.w     <<invalid special address>>, [A0 + D0.w]
  223. 00000284  0000 0000                ori.b      D0, 0x0
  224. label00000288:
  225. 00000288  487A FFF6                pea.l      [PC - 0xA /* 00000280, value 0x3FF00000 */]
  226. 0000028C  486D FFC0                pea.l      [A5 - 0x40]
  227. 00000290  3F3C 0800                move.w     -[A7], 0x800
  228. 00000294  A9EB                     syscall    Pack4/FP68K
  229. 00000296  554F                     subq.w     A7, 2
  230. 00000298  486D FFC0                pea.l      [A5 - 0x40]
  231. 0000029C  3F3C 0016                move.w     -[A7], 0x16
  232. 000002A0  A9EB                     syscall    Pack4/FP68K
  233. 000002A2  486D FFC0                pea.l      [A5 - 0x40]
  234. 000002A6  486F 0004                pea.l      [A7 + 0x4]
  235. 000002AA  3F3C 2010                move.w     -[A7], 0x2010
  236. 000002AE  A9EB                     syscall    Pack4/FP68K
  237. 000002B0  361F                     move.w     D3, [A7]+
  238. 000002B2  3D43 FFF8                move.w     [A6 - 0x8], D3
  239. 000002B6  42A7                     clr.l      -[A7]
  240. 000002B8  2F3C 5354 5223           move.l     -[A7], 0x53545223 /* 'STR#' */
  241. 000002BE  3F2E FFF8                move.w     -[A7], [A6 - 0x8]
  242. 000002C2  A9A0                     syscall    GetResource
  243. 000002C4  201F                     move.l     D0, [A7]+
  244. 000002C6  2D40 FFE6                move.l     [A6 - 0x1A], D0
  245. 000002CA  246E FFE6                movea.l    A2, [A6 - 0x1A]
  246. 000002CE  2252                     movea.l    A1, [A2]
  247. 000002D0  3D51 FFF4                move.w     [A6 - 0xC], [A1]
  248. 000002D4  0C6E 0014 FFF4           cmpi.w     [A6 - 0xC], 0x14
  249. 000002DA  6F06                     ble        +0x8 /* 000002E2 */
  250. 000002DC  3D7C 0014 FFF4           move.w     [A6 - 0xC], 0x14
  251. label000002E2:
  252. 000002E2  2F2E FFE6                move.l     -[A7], [A6 - 0x1A]
  253. 000002E6  A9A3                     syscall    ReleaseResource
  254. 000002E8  426E E8DC                clr.w      [A6 - 0x1724]
  255. 000002EC  3D7C 0001 FFF6           move.w     [A6 - 0xA], 0x1
  256. 000002F2  604A                     bra        +0x4C /* 0000033E */
  257. label000002F4:
  258. 000002F4  362E FFF6                move.w     D3, [A6 - 0xA]
  259. 000002F8  48C3                     ext.l      D3
  260. 000002FA  E183                     asl        D3, 8
  261. 000002FC  45EE EAE6                lea.l      A2, [A6 - 0x151A]
  262. 00000300  D68A                     add.l      D3, A2
  263. 00000302  2F03                     move.l     -[A7], D3
  264. 00000304  3F2E FFF8                move.w     -[A7], [A6 - 0x8]
  265. 00000308  3F2E FFF6                move.w     -[A7], [A6 - 0xA]
  266. 0000030C  4EBA 0808                jsr        [PC + 0x808 /* 00000B16 */]
  267. 00000310  4267                     clr.w      -[A7]
  268. 00000312  362E FFF6                move.w     D3, [A6 - 0xA]
  269. 00000316  48C3                     ext.l      D3
  270. 00000318  E183                     asl        D3, 8
  271. 0000031A  45EE EAE6                lea.l      A2, [A6 - 0x151A]
  272. 0000031E  D68A                     add.l      D3, A2
  273. 00000320  2F03                     move.l     -[A7], D3
  274. 00000322  A88C                     syscall    StringWidth
  275. 00000324  301F                     move.w     D0, [A7]+
  276. 00000326  3D40 E8DE                move.w     [A6 - 0x1722], D0
  277. 0000032A  362E E8DE                move.w     D3, [A6 - 0x1722]
  278. 0000032E  B66E E8DC                cmp.w      D3, [A6 - 0x1724]
  279. 00000332  6F06                     ble        +0x8 /* 0000033A */
  280. 00000334  3D6E E8DE E8DC           move.w     [A6 - 0x1724], [A6 - 0x1722]
  281. label0000033A:
  282. 0000033A  526E FFF6                addq.w     [A6 - 0xA], 1
  283. label0000033E:
  284. 0000033E  362E FFF6                move.w     D3, [A6 - 0xA]
  285. 00000342  B66E FFF4                cmp.w      D3, [A6 - 0xC]
  286. 00000346  6FAC                     ble        -0x52 /* 000002F4 */
  287. 00000348  362E FFFE                move.w     D3, [A6 - 0x2]
  288. 0000034C  48C3                     ext.l      D3
  289. 0000034E  2F03                     move.l     -[A7], D3
  290. 00000350  486E E8E6                pea.l      [A6 - 0x171A]
  291. 00000354  4EBA 03CA                jsr        [PC + 0x3CA /* 00000720 */]
  292. 00000358  362E FFF8                move.w     D3, [A6 - 0x8]
  293. 0000035C  48C3                     ext.l      D3
  294. 0000035E  2F03                     move.l     -[A7], D3
  295. 00000360  486E E9E6                pea.l      [A6 - 0x161A]
  296. 00000364  4EBA 03BA                jsr        [PC + 0x3BA /* 00000720 */]
  297. 00000368  4267                     clr.w      -[A7]
  298. 0000036A  4267                     clr.w      -[A7]
  299. 0000036C  A893                     syscall    MoveTo
  300. 0000036E  486E E8D0                pea.l      [A6 - 0x1730]
  301. 00000372  4267                     clr.w      -[A7]
  302. 00000374  4267                     clr.w      -[A7]
  303. 00000376  3F3C 0064                move.w     -[A7], 0x64 /* 'd' */
  304. 0000037A  3F3C 0010                move.w     -[A7], 0x10
  305. 0000037E  A8A7                     syscall    SetRect
  306. 00000380  486E E8D0                pea.l      [A6 - 0x1730]
  307. 00000384  A8A3                     syscall    EraseRect
  308. 00000386  3F3C 000A                move.w     -[A7], 0xA /* '\n' */
  309. 0000038A  3F3C 000E                move.w     -[A7], 0xE
  310. 0000038E  A893                     syscall    MoveTo
  311. 00000390  486E E9E6                pea.l      [A6 - 0x161A]
  312. 00000394  A884                     syscall    DrawString
  313. 00000396  487A 017E                pea.l      [PC + 0x17E /* 00000516, value 0x12F000C */]
  314. 0000039A  A884                     syscall    DrawString
  315. 0000039C  486E E8E6                pea.l      [A6 - 0x171A]
  316. 000003A0  A884                     syscall    DrawString
  317. 000003A2  362E E8DC                move.w     D3, [A6 - 0x1724]
  318. 000003A6  D67C 0028                add.w      D3, 0x28 /* '(' */
  319. 000003AA  3D43 E8E2                move.w     [A6 - 0x171E], D3
  320. 000003AE  362D FF3A                move.w     D3, [A5 - 0xC6]
  321. 000003B2  966E E8E2                sub.w      D3, [A6 - 0x171E]
  322. 000003B6  48C3                     ext.l      D3
  323. 000003B8  87FC 0002                divs.w     D3, 0x2
  324. 000003BC  3D43 FFEE                move.w     [A6 - 0x12], D3
  325. 000003C0  362E FFEE                move.w     D3, [A6 - 0x12]
  326. 000003C4  D66E E8E2                add.w      D3, [A6 - 0x171E]
  327. 000003C8  3D43 FFF2                move.w     [A6 - 0xE], D3
  328. 000003CC  362E FFF4                move.w     D3, [A6 - 0xC]
  329. 000003D0  5343                     subq.w     D3, 1
  330. 000003D2  C6FC 000F                mulu.w     D3, 0xF
  331. 000003D6  D67C 0014                add.w      D3, 0x14
  332. 000003DA  3D43 E8E4                move.w     [A6 - 0x171C], D3
  333. 000003DE  362D FF38                move.w     D3, [A5 - 0xC8]
  334. 000003E2  966E E8E4                sub.w      D3, [A6 - 0x171C]
  335. 000003E6  48C3                     ext.l      D3
  336. 000003E8  87FC 0002                divs.w     D3, 0x2
  337. 000003EC  3D43 FFEC                move.w     [A6 - 0x14], D3
  338. 000003F0  362E FFEC                move.w     D3, [A6 - 0x14]
  339. 000003F4  D66E E8E4                add.w      D3, [A6 - 0x171C]
  340. 000003F8  3D43 FFF0                move.w     [A6 - 0x10], D3
  341. 000003FC  42A7                     clr.l      -[A7]
  342. 000003FE  42A7                     clr.l      -[A7]
  343. 00000400  486E FFEC                pea.l      [A6 - 0x14]
  344. 00000404  487A 0113                pea.l      [PC + 0x113 /* 00000519, value 0xC596F75, pstring "Your Fortune" */]
  345. 00000408  3F3C FFFF                move.w     -[A7], 0xFFFF
  346. 0000040C  3F3C 0010                move.w     -[A7], 0x10
  347. 00000410  2F3C FFFF FFFF           move.l     -[A7], 0xFFFFFFFF
  348. 00000416  4267                     clr.w      -[A7]
  349. 00000418  42A7                     clr.l      -[A7]
  350. 0000041A  A913                     syscall    NewWindow
  351. 0000041C  201F                     move.l     D0, [A7]+
  352. 0000041E  2B40 FFAC                move.l     [A5 - 0x54], D0
  353. 00000422  2F2D FFAC                move.l     -[A7], [A5 - 0x54]
  354. 00000426  A873                     syscall    SetPort
  355. 00000428  4267                     clr.w      -[A7]
  356. 0000042A  A887                     syscall    TextFont
  357. 0000042C  3D7C 0001 FFF6           move.w     [A6 - 0xA], 0x1
  358. 00000432  6052                     bra        +0x54 /* 00000486 */
  359. label00000434:
  360. 00000434  4267                     clr.w      -[A7]
  361. 00000436  362E FFF6                move.w     D3, [A6 - 0xA]
  362. 0000043A  48C3                     ext.l      D3
  363. 0000043C  E183                     asl        D3, 8
  364. 0000043E  45EE EAE6                lea.l      A2, [A6 - 0x151A]
  365. 00000442  D68A                     add.l      D3, A2
  366. 00000444  2F03                     move.l     -[A7], D3
  367. 00000446  A88C                     syscall    StringWidth
  368. 00000448  301F                     move.w     D0, [A7]+
  369. 0000044A  362E E8E2                move.w     D3, [A6 - 0x171E]
  370. 0000044E  9640                     sub.w      D3, D0
  371. 00000450  48C3                     ext.l      D3
  372. 00000452  87FC 0002                divs.w     D3, 0x2
  373. 00000456  3D43 E8E0                move.w     [A6 - 0x1720], D3
  374. 0000045A  3F2E E8E0                move.w     -[A7], [A6 - 0x1720]
  375. 0000045E  362E FFF6                move.w     D3, [A6 - 0xA]
  376. 00000462  5343                     subq.w     D3, 1
  377. 00000464  C6FC 000F                mulu.w     D3, 0xF
  378. 00000468  D67C 000F                add.w      D3, 0xF
  379. 0000046C  3F03                     move.w     -[A7], D3
  380. 0000046E  A893                     syscall    MoveTo
  381. 00000470  362E FFF6                move.w     D3, [A6 - 0xA]
  382. 00000474  48C3                     ext.l      D3
  383. 00000476  E183                     asl        D3, 8
  384. 00000478  45EE EAE6                lea.l      A2, [A6 - 0x151A]
  385. 0000047C  D68A                     add.l      D3, A2
  386. 0000047E  2F03                     move.l     -[A7], D3
  387. 00000480  A884                     syscall    DrawString
  388. 00000482  526E FFF6                addq.w     [A6 - 0xA], 1
  389. label00000486:
  390. 00000486  362E FFF6                move.w     D3, [A6 - 0xA]
  391. 0000048A  B66E FFF4                cmp.w      D3, [A6 - 0xC]
  392. 0000048E  6FA4                     ble        -0x5A /* 00000434 */
  393. 00000490  3F2E FFF4                move.w     -[A7], [A6 - 0xC]
  394. 00000494  4EBA FB6A                jsr        [PC - 0x496 /* 00000000 */]
  395. 00000498  544F                     addq.w     A7, 2
  396. 0000049A  0C6D 0001 FFB0           cmpi.w     [A5 - 0x50], 0x1
  397. 000004A0  6700 FD04                beq        -0x2FA /* 000001A6 */
  398. label000004A4:
  399. 000004A4  0C6E FFFF FFFA           cmpi.w     [A6 - 0x6], 0xFFFF
  400. 000004AA  6706                     beq        +0x8 /* 000004B2 */
  401. 000004AC  3F2E FFFA                move.w     -[A7], [A6 - 0x6]
  402. 000004B0  A99A                     syscall    CloseResFile
  403. label000004B2:
  404. 000004B2  4E5E                     unlink     A6
  405. 000004B4  4E75                     rts
  406. 000004B6  2146 6F72                move.l     [A0 + 0x6F72], D6
  407. 000004BA  7475                     moveq.l    D2, 0x75
  408. 000004BC  6E65                     bgt        +0x67 /* 00000523 */
  409. 000004BE  2020                     move.l     D0, -[A0]
  410. 000004C0  2020                     move.l     D0, -[A0]
  411. 000004C2  2020                     move.l     D0, -[A0]
  412. 000004C4  2020                     move.l     D0, -[A0]
  413. 000004C6  A931                     syscall    NewMenu
  414. 000004C8  3938 3620                move.w     -[A4], [0x00003620]
  415. 000004CC  6279                     bhi        +0x7B /* 00000547 */
  416. 000004CE  2044                     movea.l    A0, D4
  417. 000004D0  6176                     bsr        +0x78 /* 00000548 */
  418. 000004D2  6964                     bvs        +0x66 /* 00000538 */
  419. 000004D4  2046                     movea.l    A0, D6
  420. 000004D6  7279                     moveq.l    D1, 0x79
  421. 000004D8  0007 436F                ori.b      D7, 0x6F /* 'o' */
  422. 000004DC  6F6B                     ble        +0x6D /* 00000549 */
  423. 000004DE  6965                     bvs        +0x67 /* 00000545 */
  424. 000004E0  7300                     moveq.l    D1, 0x00
  425. 000004E2  053F                     btst       <<invalid special address>>, D2
  426. 000004E4  3F2F 3F3F                move.w     -[A7], [A7 + 0x3F3F]
  427. 000004E8  000A 4E6F                ori.b      A2, 0x6F /* 'o' */
  428. 000004EC  2043                     movea.l    A0, D3
  429. 000004EE  6F6F                     ble        +0x71 /* 0000055F */
  430. 000004F0  6B69                     bmi        +0x6B /* 0000055B */
  431. 000004F2  6573                     bcs        +0x75 /* 00000567 */
  432. 000004F4  001F 5468                ori.b      [A7]+, 0x68 /* 'h' */
  433. 000004F8  6520                     bcs        +0x22 /* 0000051A */
  434. 000004FA  436F 6F6B                chk.w      D1, [A7 + 0x6F6B]
  435. 000004FE  6965                     bvs        +0x67 /* 00000565 */
  436. 00000500  7320                     moveq.l    D1, 0x20
  437. 00000502  6669                     bne        +0x6B /* 0000056D */
  438. 00000504  6C65                     bge        +0x67 /* 0000056B */
  439. 00000506  2077 6173 206E 6F74 2066 6F75 movea.l    A0, [[A7 + 0x206E6F74] + 0x20666F75]
  440. 00000512  6E64                     bgt        +0x66 /* 00000578 */
  441. 00000514  2E00                     move.l     D7, D0
  442. 00000516  012F 000C                btst       [A7 + 0xC], D0
  443. label0000051A:
  444. 0000051A  596F 7572                subq.w     [A7 + 0x7572], 4
  445. 0000051E  2046                     movea.l    A0, D6
  446. 00000520  6F72                     ble        +0x74 /* 00000594 */
  447. 00000522  7475                     moveq.l    D2, 0x75
  448. 00000524  6E65                     bgt        +0x67 /* 0000058B */
  449. 00000526  0000 41FA                ori.b      D0, 0xFA
  450. // begin alternate branch 00000528-00000530
  451. label00000528:
  452. 00000528  41FA 032A                lea.l      A0, [PC + 0x32A /* 00000854, value 0x4E56FF70 */]
  453. 0000052C  2B48 FFF2                move.l     [A5 - 0xE], A0
  454. // end alternate branch 00000528-00000530
  455. label00000528: // (misaligned)
  456. 0000052A  032A 2B48                btst       [A2 + 0x2B48], D1
  457. 0000052E  FFF2                     .invalid   <<F/7/7>>
  458. 00000530  43ED FECA                lea.l      A1, [A5 - 0x136]
  459. 00000534  2B49 FFF6                move.l     [A5 - 0xA], A1
  460. label00000538:
  461. 00000538  42A7                     clr.l      -[A7]
  462. 0000053A  4267                     clr.w      -[A7]
  463. 0000053C  4EBA FB38                jsr        [PC - 0x4C8 /* 00000076 */]
  464. 00000540  5C4F                     addq.w     A7, 6
  465. 00000542  4267                     clr.w      -[A7]
  466. 00000544  4EBA 01EC                jsr        [PC + 0x1EC /* 00000732 */]
  467. export_0:
  468. fn00000548:
  469. 00000548  204F                     movea.l    A0, A7
  470. 0000054A  91FC 0000 2000           sub.l      A0, 0x2000 /* ' \0' */
  471. 00000550  A02D                     syscall    SetApplLimit
  472. 00000552  594F                     subq.w     A7, 4
  473. 00000554  A975                     syscall    TickCount
  474. 00000556  584F                     addq.w     A7, 4
  475. 00000558  4E56 FFCA                link       A6, -0x0036
  476. 0000055C  203C 0000 009A           move.l     D0, 0x9A
  477. 00000562  6B0A                     bmi        +0xC /* 0000056E */
  478. 00000564  41ED FECA                lea.l      A0, [A5 - 0x136]
  479. label00000568:
  480. 00000568  4258                     clr.w      [A0]+
  481. 0000056A  51C8 FFFC                dbf        D0, -0x6 /* 00000568 */
  482. label0000056E:
  483. 0000056E  594F                     subq.w     A7, 4
  484. 00000570  243C 434F 4445           move.l     D2, 0x434F4445 /* 'CODE' */
  485. 00000576  2F02                     move.l     -[A7], D2
  486. label00000578:
  487. 00000578  3F3C 0001                move.w     -[A7], 0x1
  488. 0000057C  A9A0                     syscall    GetResource
  489. 0000057E  245F                     movea.l    A2, [A7]+
  490. 00000580  2C12                     move.l     D6, [A2]
  491. 00000582  CCBC 00FF FFFF           and.l      D6, 0xFFFFFF
  492. 00000588  5886                     addq.l     D6, 4
  493. 0000058A  41EE FFCA                lea.l      A0, [A6 - 0x36]
  494. 0000058E  3178 0900 0018           move.w     [A0 + 0x18], [0x00000900 /* CurApRefNum */]
  495. label00000594:
  496. 00000594  43EE FFFC                lea.l      A1, [A6 - 0x4]
  497. 00000598  323C 0100                move.w     D1, 0x100
  498. 0000059C  6166                     bsr        +0x68 /* 00000604 */
  499. 0000059E  670E                     beq        +0x10 /* 000005AE */
  500. 000005A0  2151 0024                move.l     [A0 + 0x24], [A1]
  501. 000005A4  45ED FE44                lea.l      A2, [A5 - 0x1BC]
  502. 000005A8  214A 0020                move.l     [A0 + 0x20], A2
  503. 000005AC  A002                     syscall    Read
  504. label000005AE:
  505. 000005AE  323C 0101                move.w     D1, 0x101
  506. 000005B2  6150                     bsr        +0x52 /* 00000604 */
  507. 000005B4  6724                     beq        +0x26 /* 000005DA */
  508. 000005B6  244D                     movea.l    A2, A5
  509. 000005B8  6126                     bsr        +0x28 /* 000005E0 */
  510. 000005BA  2446                     movea.l    A2, D6
  511. 000005BC  6122                     bsr        +0x24 /* 000005E0 */
  512. 000005BE  47ED 0004                lea.l      A3, [A5 + 0x4]
  513. 000005C2  D6F8 0934                add.w      A3, [0x00000934 /* CurJTOffset */]
  514. 000005C6  A002                     syscall    Read
  515. 000005C8  2211                     move.l     D1, [A1]
  516. 000005CA  6B0E                     bmi        +0x10 /* 000005DA */
  517. label000005CC:
  518. 000005CC  A002                     syscall    Read
  519. 000005CE  2411                     move.l     D2, [A1]
  520. 000005D0  D48A                     add.l      D2, A2
  521. 000005D2  2682                     move.l     [A3], D2
  522. 000005D4  508B                     addq.l     A3, 8
  523. 000005D6  51C9 FFF4                dbf        D1, -0xE /* 000005CC */
  524. label000005DA:
  525. 000005DA  4E5E                     unlink     A6
  526. 000005DC  4EFA FF4A                jmp        [PC - 0xB6 /* 00000528 */]
  527. fn000005E0:
  528. 000005E0  A002                     syscall    Read
  529. 000005E2  2611                     move.l     D3, [A1]
  530. 000005E4  6B04                     bmi        +0x6 /* 000005EA */
  531. 000005E6  280D                     move.l     D4, A5
  532. 000005E8  610C                     bsr        +0xE /* 000005F6 */
  533. label000005EA:
  534. 000005EA  A002                     syscall    Read
  535. 000005EC  2611                     move.l     D3, [A1]
  536. 000005EE  6B04                     bmi        +0x6 /* 000005F4 */
  537. 000005F0  2806                     move.l     D4, D6
  538. 000005F2  6102                     bsr        +0x4 /* 000005F6 */
  539. label000005F4:
  540. 000005F4  4E75                     rts
  541. fn000005F6:
  542. 000005F6  A002                     syscall    Read
  543. 000005F8  2A11                     move.l     D5, [A1]
  544. 000005FA  D9B2 5800                add.l      [A2 + D5], D4
  545. 000005FE  51CB FFF6                dbf        D3, -0xC /* 000005F6 */
  546. 00000602  4E75                     rts
  547. fn00000604:
  548. 00000604  2478 0A50                movea.l    A2, [0x00000A50 /* TopMapHndl */]
  549. 00000608  2452                     movea.l    A2, [A2]
  550. 0000060A  D4EA 0018                add.w      A2, [A2 + 0x18]
  551. 0000060E  3012                     move.w     D0, [A2]
  552. 00000610  47EA 0002                lea.l      A3, [A2 + 0x2]
  553. label00000614:
  554. 00000614  B49B                     cmp.l      D2, [A3]+
  555. 00000616  6706                     beq        +0x8 /* 0000061E */
  556. 00000618  4A9B                     tst.l      [A3]+
  557. 0000061A  51C8 FFF8                dbf        D0, -0xA /* 00000614 */
  558. label0000061E:
  559. 0000061E  301B                     move.w     D0, [A3]+
  560. 00000620  3653                     movea.w    A3, [A3]
  561. 00000622  D7CA                     add.l      A3, A2
  562. label00000624:
  563. 00000624  B253                     cmp.w      D1, [A3]
  564. 00000626  670C                     beq        +0xE /* 00000634 */
  565. 00000628  D6FC 000C                add.w      A3, 0xC
  566. 0000062C  51C8 FFF6                dbf        D0, -0xC /* 00000624 */
  567. 00000630  4280                     clr.l      D0
  568. 00000632  4E75                     rts
  569. label00000634:
  570. 00000634  202B 0004                move.l     D0, [A3 + 0x4]
  571. 00000638  C0BC 00FF FFFF           and.l      D0, 0xFFFFFF
  572. 0000063E  2478 0A50                movea.l    A2, [0x00000A50 /* TopMapHndl */]
  573. 00000642  2452                     movea.l    A2, [A2]
  574. 00000644  D092                     add.l      D0, [A2]
  575. 00000646  2149 0020                move.l     [A0 + 0x20], A1
  576. 0000064A  217C 0000 0004 0024      move.l     [A0 + 0x24], 0x4
  577. 00000652  317C 0001 002C           move.w     [A0 + 0x2C], 0x1
  578. 00000658  2140 002E                move.l     [A0 + 0x2E], D0
  579. 0000065C  A002                     syscall    Read
  580. 0000065E  4268 002C                clr.w      [A0 + 0x2C]
  581. 00000662  4A91                     tst.l      [A1]
  582. 00000664  4E75                     rts
  583. 00000666  48E7 0810                movem.l    -[A7], D4,A3
  584. 0000066A  382F 000C                move.w     D4, [A7 + 0xC]
  585. 0000066E  486D FFA8                pea.l      [A5 - 0x58]
  586. 00000672  A86E                     syscall    InitGraf
  587. 00000674  7007                     moveq.l    D0, 0x07
  588. 00000676  01F8                     .incomplete
  589. 00000678  015D                     bchg       [A5]+, D0
  590. 0000067A  01F8                     .incomplete
  591. 0000067C  021F 4238                andi.b     [A7]+, 0x38 /* '8' */
  592. 00000680  08F2 21FC FFFF           bset.b     <<invalid full ext with IS == 1 and I/IS == 7>>, 0xFC
  593. 00000686  FFFF                     .invalid   <<F/7/7>>
  594. 00000688  09D6                     .incomplete
  595. 0000068A  594F                     subq.w     A7, 4
  596. 0000068C  3F3C 0010                move.w     -[A7], 0x10
  597. 00000690  A9B8                     syscall    GetPattern
  598. 00000692  205F                     movea.l    A0, [A7]+
  599. 00000694  2050                     movea.l    A0, [A0]
  600. 00000696  21D8 0A3C                move.l     [0x00000A3C /* DeskPattern */], [A0]+
  601. 0000069A  21D0 0A40                move.l     [0x00000A40], [A0]
  602. 0000069E  706C                     moveq.l    D0, 0x6C
  603. 000006A0  A11E                     syscall    NewPtr, flags=1
  604. 000006A2  21C8 09DE                move.l     [0x000009DE /* WMgrPort */], A0
  605. 000006A6  2F08                     move.l     -[A7], A0
  606. 000006A8  A86F                     syscall    OpenPort
  607. 000006AA  2678 09DE                movea.l    A3, [0x000009DE /* WMgrPort */]
  608. 000006AE  2F2B 001C                move.l     -[A7], [A3 + 0x1C]
  609. 000006B2  42A7                     clr.l      -[A7]
  610. 000006B4  3F2B 0016                move.w     -[A7], [A3 + 0x16]
  611. 000006B8  3F04                     move.w     -[A7], D4
  612. 000006BA  A8DE                     syscall    SetRecRgn
  613. 000006BC  486B 0010                pea.l      [A3 + 0x10]
  614. 000006C0  2F3C 0010 0010           move.l     -[A7], 0x100010
  615. 000006C6  A8B2                     syscall    EraseRoundRect
  616. 000006C8  3F2B 0016                move.w     -[A7], [A3 + 0x16]
  617. 000006CC  7013                     moveq.l    D0, 0x13
  618. 000006CE  3F00                     move.w     -[A7], D0
  619. 000006D0  4840                     swap.w     D0
  620. 000006D2  2F00                     move.l     -[A7], D0
  621. 000006D4  A893                     syscall    MoveTo
  622. 000006D6  A891                     syscall    LineTo
  623. 000006D8  598F                     subq.l     A7, 4
  624. 000006DA  A8D8                     syscall    NewRgn
  625. 000006DC  21D7 09EE                move.l     [0x000009EE /* GrayRgn */], [A7]
  626. 000006E0  2F17                     move.l     -[A7], [A7]
  627. 000006E2  486B 0010                pea.l      [A3 + 0x10]
  628. 000006E6  A8DF                     syscall    RectRgn
  629. 000006E8  A879                     syscall    SetClip
  630. 000006EA  2F2B 0014                move.l     -[A7], [A3 + 0x14]
  631. 000006EE  9957                     sub.w      [A7], D4
  632. 000006F0  A876                     syscall    PortSize
  633. 000006F2  4267                     clr.w      -[A7]
  634. 000006F4  3F04                     move.w     -[A7], D4
  635. 000006F6  A877                     syscall    MovePortTo
  636. 000006F8  42B8 09D6                clr.l      [0x000009D6 /* WindowList */]
  637. 000006FC  598F                     subq.l     A7, 4
  638. 000006FE  A8D8                     syscall    NewRgn
  639. 00000700  21DF 09F2                move.l     [0x000009F2 /* SaveVisRgn */], [A7]+
  640. 00000704  42B8 0A84                clr.l      [0x00000A84 /* GhostWindow */]
  641. 00000708  42B8 0A64                clr.l      [0x00000A64 /* CurActivate */]
  642. 0000070C  42B8 0A68                clr.l      [0x00000A68 /* CurDeactive */]
  643. 00000710  4CDF 0810                movem.l    D4,A3, [A7]+
  644. 00000714  4E75                     rts
  645. fn00000716:
  646. 00000716  206F 0004                movea.l    A0, [A7 + 0x4]
  647. 0000071A  20B8 020C                move.l     [A0], [0x0000020C /* Time */]
  648. 0000071E  4E75                     rts
  649. fn00000720:
  650. 00000720  206F 0004                movea.l    A0, [A7 + 0x4]
  651. 00000724  202F 0008                move.l     D0, [A7 + 0x8]
  652. 00000728  4267                     clr.w      -[A7]
  653. 0000072A  A9EE                     syscall    Pack7/DecStr68K
  654. 0000072C  205F                     movea.l    A0, [A7]+
  655. 0000072E  504F                     addq.w     A7, 8
  656. 00000730  4ED0                     jmp        [A0]
  657. fn00000732:
  658. 00000732  4E56 0000                link       A6, 0
  659. 00000736  2F04                     move.l     -[A7], D4
  660. 00000738  4AAD FE44                tst.l      [A5 - 0x1BC]
  661. 0000073C  6706                     beq        +0x8 /* 00000744 */
  662. 0000073E  246D FE44                movea.l    A2, [A5 - 0x1BC]
  663. 00000742  4E92                     jsr        [A2]
  664. label00000744:
  665. 00000744  7800                     moveq.l    D4, 0x00
  666. label00000746:
  667. 00000746  3F04                     move.w     -[A7], D4
  668. 00000748  4EBA 001C                jsr        [PC + 0x1C /* 00000766 */]
  669. 0000074C  544F                     addq.w     A7, 2
  670. 0000074E  5244                     addq.w     D4, 1
  671. 00000750  B87C 000A                cmp.w      D4, 0xA /* '\n' */
  672. 00000754  6DF0                     blt        -0xE /* 00000746 */
  673. 00000756  3F2E 0008                move.w     -[A7], [A6 + 0x8]
  674. 0000075A  4EBA 039E                jsr        [PC + 0x39E /* 00000AFA */]
  675. 0000075E  544F                     addq.w     A7, 2
  676. 00000760  281F                     move.l     D4, [A7]+
  677. 00000762  4E5E                     unlink     A6
  678. 00000764  4E75                     rts
  679. fn00000766:
  680. 00000766  4E56 FFAE                link       A6, -0x0052
  681. 0000076A  48E7 0F18                movem.l    -[A7], D4,D5,D6,D7,A3,A4
  682. 0000076E  382E 0008                move.w     D4, [A6 + 0x8]
  683. 00000772  266D FFF6                movea.l    A3, [A5 - 0xA]
  684. 00000776  B87C 0000                cmp.w      D4, 0x0
  685. 0000077A  6D06                     blt        +0x8 /* 00000782 */
  686. 0000077C  B87C 0009                cmp.w      D4, 0x9 /* '\t' */
  687. 00000780  6F10                     ble        +0x12 /* 00000792 */
  688. label00000782:
  689. 00000782  3B7C FFFD FFFA           move.w     [A5 - 0x6], 0xFFFD
  690. 00000788  70FF                     moveq.l    D0, 0xFFFFFFFF
  691. label0000078A:
  692. 0000078A  4CDF 18F0                movem.l    D4,D5,D6,D7,A3,A4, [A7]+
  693. 0000078E  4E5E                     unlink     A6
  694. 00000790  4E75                     rts
  695. label00000792:
  696. 00000792  48C4                     ext.l      D4
  697. 00000794  2604                     move.l     D3, D4
  698. 00000796  E383                     asl        D3, 1
  699. 00000798  3A33 3800                move.w     D5, [A3 + D3]
  700. 0000079C  4A45                     tst.w      D5
  701. 0000079E  6772                     beq        +0x74 /* 00000812 */
  702. 000007A0  BA6D FFFC                cmp.w      D5, [A5 - 0x4]
  703. 000007A4  676C                     beq        +0x6E /* 00000812 */
  704. 000007A6  BA7C FFF7                cmp.w      D5, 0xFFF7
  705. 000007AA  6D06                     blt        +0x8 /* 000007B2 */
  706. 000007AC  BA7C FFFA                cmp.w      D5, 0xFFFA
  707. 000007B0  6F60                     ble        +0x62 /* 00000812 */
  708. label000007B2:
  709. 000007B2  3D45 FFC6                move.w     [A6 - 0x3A], D5
  710. 000007B6  BA7C 0000                cmp.w      D5, 0x0
  711. 000007BA  6F20                     ble        +0x22 /* 000007DC */
  712. 000007BC  48C5                     ext.l      D5
  713. 000007BE  2845                     movea.l    A4, D5
  714. 000007C0  D9F8 034E                add.l      A4, [0x0000034E /* FCBSPtr */]
  715. 000007C4  162C 0004                move.b     D3, [A4 + 0x4]
  716. 000007C8  C67C 00FF                and.w      D3, 0xFF
  717. 000007CC  C67C 0001                and.w      D3, 0x1
  718. 000007D0  3E03                     move.w     D7, D3
  719. 000007D2  246C 0014                movea.l    A2, [A4 + 0x14]
  720. 000007D6  3D6A 004C FFFE           move.w     [A6 - 0x2], [A2 + 0x4C]
  721. label000007DC:
  722. 000007DC  4267                     clr.w      -[A7]
  723. 000007DE  486E FFAE                pea.l      [A6 - 0x52]
  724. 000007E2  4267                     clr.w      -[A7]
  725. 000007E4  4EBA 004A                jsr        [PC + 0x4A /* 00000830 */]
  726. 000007E8  301F                     move.w     D0, [A7]+
  727. 000007EA  3C00                     move.w     D6, D0
  728. 000007EC  4A40                     tst.w      D0
  729. 000007EE  6622                     bne        +0x24 /* 00000812 */
  730. 000007F0  BA7C 0000                cmp.w      D5, 0x0
  731. 000007F4  6F1C                     ble        +0x1E /* 00000812 */
  732. 000007F6  4A47                     tst.w      D7
  733. 000007F8  6718                     beq        +0x1A /* 00000812 */
  734. 000007FA  42AE FFC0                clr.l      [A6 - 0x40]
  735. 000007FE  3D6E FFFE FFC4           move.w     [A6 - 0x3C], [A6 - 0x2]
  736. 00000804  4267                     clr.w      -[A7]
  737. 00000806  486E FFAE                pea.l      [A6 - 0x52]
  738. 0000080A  4267                     clr.w      -[A7]
  739. 0000080C  4EBA 0034                jsr        [PC + 0x34 /* 00000842 */]
  740. 00000810  301F                     move.w     D0, [A7]+
  741. label00000812:
  742. 00000812  48C4                     ext.l      D4
  743. 00000814  2604                     move.l     D3, D4
  744. 00000816  E383                     asl        D3, 1
  745. 00000818  4273 3800                clr.w      [A3 + D3]
  746. 0000081C  4A46                     tst.w      D6
  747. 0000081E  670A                     beq        +0xC /* 0000082A */
  748. 00000820  3B46 FFFA                move.w     [A5 - 0x6], D6
  749. 00000824  70FF                     moveq.l    D0, 0xFFFFFFFF
  750. 00000826  6000 FF62                bra        -0x9C /* 0000078A */
  751. label0000082A:
  752. 0000082A  7000                     moveq.l    D0, 0x00
  753. 0000082C  6000 FF5C                bra        -0xA2 /* 0000078A */
  754. fn00000830:
  755. 00000830  225F                     movea.l    A1, [A7]+
  756. 00000832  301F                     move.w     D0, [A7]+
  757. 00000834  205F                     movea.l    A0, [A7]+
  758. 00000836  6604                     bne        +0x6 /* 0000083C */
  759. 00000838  A001                     syscall    Close
  760. 0000083A  6002                     bra        +0x4 /* 0000083E */
  761. label0000083C:
  762. 0000083C  A401                     syscall    Close, flags=4
  763. label0000083E:
  764. 0000083E  3E80                     move.w     [A7], D0
  765. 00000840  4ED1                     jmp        [A1]
  766. fn00000842:
  767. 00000842  225F                     movea.l    A1, [A7]+
  768. 00000844  301F                     move.w     D0, [A7]+
  769. 00000846  205F                     movea.l    A0, [A7]+
  770. 00000848  6604                     bne        +0x6 /* 0000084E */
  771. 0000084A  A013                     syscall    FlushVol
  772. 0000084C  6002                     bra        +0x4 /* 00000850 */
  773. label0000084E:
  774. 0000084E  A413                     syscall    FlushVol, flags=4
  775. label00000850:
  776. 00000850  3E80                     move.w     [A7], D0
  777. 00000852  4ED1                     jmp        [A1]
  778. 00000854  4E56 FF70                link       A6, -0x0090
  779. 00000858  48E7 0810                movem.l    -[A7], D4,A3
  780. 0000085C  246E 000C                movea.l    A2, [A6 + 0xC]
  781. 00000860  4212                     clr.b      [A2]
  782. 00000862  3F3C 003A                move.w     -[A7], 0x3A /* ':' */
  783. 00000866  2F2E 0008                move.l     -[A7], [A6 + 0x8]
  784. 0000086A  4EBA 0198                jsr        [PC + 0x198 /* 00000A04 */]
  785. 0000086E  5C4F                     addq.w     A7, 6
  786. 00000870  2640                     movea.l    A3, D0
  787. 00000872  4A80                     tst.l      D0
  788. 00000874  6706                     beq        +0x8 /* 0000087C */
  789. 00000876  B7EE 0008                cmpa.l     A3, [A6 + 0x8]
  790. 0000087A  6620                     bne        +0x22 /* 0000089C */
  791. label0000087C:
  792. 0000087C  45EE FFC0                lea.l      A2, [A6 - 0x40]
  793. 00000880  2D4A FF82                move.l     [A6 - 0x7E], A2
  794. 00000884  4267                     clr.w      -[A7]
  795. 00000886  486E FF70                pea.l      [A6 - 0x90]
  796. 0000088A  4267                     clr.w      -[A7]
  797. 0000088C  4EBA 0164                jsr        [PC + 0x164 /* 000009F2 */]
  798. 00000890  301F                     move.w     D0, [A7]+
  799. 00000892  382E FF86                move.w     D4, [A6 - 0x7A]
  800. 00000896  266E 0008                movea.l    A3, [A6 + 0x8]
  801. 0000089A  6022                     bra        +0x24 /* 000008BE */
  802. label0000089C:
  803. 0000089C  4213                     clr.b      [A3]
  804. 0000089E  2F2E 0008                move.l     -[A7], [A6 + 0x8]
  805. 000008A2  612A                     bsr        +0x2C /* 000008CE */
  806. 000008A4  584F                     addq.w     A7, 4
  807. 000008A6  3800                     move.w     D4, D0
  808. 000008A8  244B                     movea.l    A2, A3
  809. 000008AA  528B                     addq.l     A3, 1
  810. 000008AC  14BC 003A                move.b     [A2], 0x3A /* ':' */
  811. 000008B0  4A44                     tst.w      D4
  812. 000008B2  660A                     bne        +0xC /* 000008BE */
  813. 000008B4  7000                     moveq.l    D0, 0x00
  814. label000008B6:
  815. 000008B6  4CDF 0810                movem.l    D4,A3, [A7]+
  816. 000008BA  4E5E                     unlink     A6
  817. 000008BC  4E75                     rts
  818. label000008BE:
  819. 000008BE  2F0B                     move.l     -[A7], A3
  820. 000008C0  2F2E 000C                move.l     -[A7], [A6 + 0xC]
  821. 000008C4  4EBA 0158                jsr        [PC + 0x158 /* 00000A1E */]
  822. 000008C8  504F                     addq.w     A7, 8
  823. 000008CA  3004                     move.w     D0, D4
  824. 000008CC  60E8                     bra        -0x16 /* 000008B6 */
  825. fn000008CE:
  826. 000008CE  4E56 FF70                link       A6, -0x0090
  827. 000008D2  48E7 0C18                movem.l    -[A7], D4,D5,A3,A4
  828. 000008D6  266E 0008                movea.l    A3, [A6 + 0x8]
  829. 000008DA  284B                     movea.l    A4, A3
  830. 000008DC  1614                     move.b     D3, [A4]
  831. 000008DE  4883                     ext.w      D3
  832. 000008E0  B67C 002D                cmp.w      D3, 0x2D /* '-' */
  833. 000008E4  6602                     bne        +0x4 /* 000008E8 */
  834. 000008E6  528C                     addq.l     A4, 1
  835. label000008E8:
  836. 000008E8  6002                     bra        +0x4 /* 000008EC */
  837. label000008EA:
  838. 000008EA  528C                     addq.l     A4, 1
  839. label000008EC:
  840. 000008EC  4A14                     tst.b      [A4]
  841. 000008EE  6716                     beq        +0x18 /* 00000906 */
  842. 000008F0  1614                     move.b     D3, [A4]
  843. 000008F2  4883                     ext.w      D3
  844. 000008F4  5243                     addq.w     D3, 1
  845. 000008F6  45ED FE48                lea.l      A2, [A5 - 0x1B8]
  846. 000008FA  1432 3000                move.b     D2, [A2 + D3.w]
  847. 000008FE  4882                     ext.w      D2
  848. 00000900  C47C 0004                and.w      D2, 0x4
  849. 00000904  66E4                     bne        -0x1A /* 000008EA */
  850. label00000906:
  851. 00000906  1614                     move.b     D3, [A4]
  852. 00000908  4883                     ext.w      D3
  853. 0000090A  4A43                     tst.w      D3
  854. 0000090C  6644                     bne        +0x46 /* 00000952 */
  855. 0000090E  2F0B                     move.l     -[A7], A3
  856. 00000910  4EBA 011C                jsr        [PC + 0x11C /* 00000A2E */]
  857. 00000914  584F                     addq.w     A7, 4
  858. 00000916  3D40 FFC6                move.w     [A6 - 0x3A], D0
  859. 0000091A  45EE FF70                lea.l      A2, [A6 - 0x90]
  860. 0000091E  2D4A FFC2                move.l     [A6 - 0x3E], A2
  861. 00000922  422E FF70                clr.b      [A6 - 0x90]
  862. 00000926  426E FFCC                clr.w      [A6 - 0x34]
  863. 0000092A  4267                     clr.w      -[A7]
  864. 0000092C  486E FFB0                pea.l      [A6 - 0x50]
  865. 00000930  4267                     clr.w      -[A7]
  866. 00000932  4EBA 0180                jsr        [PC + 0x180 /* 00000AB4 */]
  867. 00000936  301F                     move.w     D0, [A7]+
  868. 00000938  3A00                     move.w     D5, D0
  869. 0000093A  4A40                     tst.w      D0
  870. 0000093C  670E                     beq        +0x10 /* 0000094C */
  871. 0000093E  3B45 FFFA                move.w     [A5 - 0x6], D5
  872. 00000942  7000                     moveq.l    D0, 0x00
  873. label00000944:
  874. 00000944  4CDF 1830                movem.l    D4,D5,A3,A4, [A7]+
  875. 00000948  4E5E                     unlink     A6
  876. 0000094A  4E75                     rts
  877. label0000094C:
  878. 0000094C  302E FFC6                move.w     D0, [A6 - 0x3A]
  879. 00000950  60F2                     bra        -0xC /* 00000944 */
  880. label00000952:
  881. 00000952  7801                     moveq.l    D4, 0x01
  882. label00000954:
  883. 00000954  3D44 FFCC                move.w     [A6 - 0x34], D4
  884. 00000958  45EE FF70                lea.l      A2, [A6 - 0x90]
  885. 0000095C  2D4A FFC2                move.l     [A6 - 0x3E], A2
  886. 00000960  422E FF70                clr.b      [A6 - 0x90]
  887. 00000964  4267                     clr.w      -[A7]
  888. 00000966  486E FFB0                pea.l      [A6 - 0x50]
  889. 0000096A  4267                     clr.w      -[A7]
  890. 0000096C  4EBA 0146                jsr        [PC + 0x146 /* 00000AB4 */]
  891. 00000970  301F                     move.w     D0, [A7]+
  892. 00000972  4A40                     tst.w      D0
  893. 00000974  6620                     bne        +0x22 /* 00000996 */
  894. 00000976  2F0B                     move.l     -[A7], A3
  895. 00000978  486E FF70                pea.l      [A6 - 0x90]
  896. 0000097C  4EBA 01D6                jsr        [PC + 0x1D6 /* 00000B54 */]
  897. 00000980  584F                     addq.w     A7, 4
  898. 00000982  2F00                     move.l     -[A7], D0
  899. 00000984  611A                     bsr        +0x1C /* 000009A0 */
  900. 00000986  504F                     addq.w     A7, 8
  901. 00000988  4A40                     tst.w      D0
  902. 0000098A  6606                     bne        +0x8 /* 00000992 */
  903. 0000098C  302E FFC6                move.w     D0, [A6 - 0x3A]
  904. 00000990  60B2                     bra        -0x4C /* 00000944 */
  905. label00000992:
  906. 00000992  5244                     addq.w     D4, 1
  907. 00000994  60BE                     bra        -0x40 /* 00000954 */
  908. label00000996:
  909. 00000996  3B7C FFDD FFFA           move.w     [A5 - 0x6], 0xFFDD
  910. 0000099C  7000                     moveq.l    D0, 0x00
  911. 0000099E  60A4                     bra        -0x5A /* 00000944 */
  912. fn000009A0:
  913. 000009A0  4E56 0000                link       A6, 0
  914. 000009A4  48E7 0818                movem.l    -[A7], D4,A3,A4
  915. 000009A8  266E 0008                movea.l    A3, [A6 + 0x8]
  916. 000009AC  286E 000C                movea.l    A4, [A6 + 0xC]
  917. label000009B0:
  918. 000009B0  1613                     move.b     D3, [A3]
  919. 000009B2  4883                     ext.w      D3
  920. 000009B4  3F03                     move.w     -[A7], D3
  921. 000009B6  4EBA 0128                jsr        [PC + 0x128 /* 00000AE0 */]
  922. 000009BA  544F                     addq.w     A7, 2
  923. 000009BC  3F00                     move.w     -[A7], D0
  924. 000009BE  1614                     move.b     D3, [A4]
  925. 000009C0  4883                     ext.w      D3
  926. 000009C2  3F03                     move.w     -[A7], D3
  927. 000009C4  4EBA 011A                jsr        [PC + 0x11A /* 00000AE0 */]
  928. 000009C8  544F                     addq.w     A7, 2
  929. 000009CA  361F                     move.w     D3, [A7]+
  930. 000009CC  3803                     move.w     D4, D3
  931. 000009CE  9840                     sub.w      D4, D0
  932. 000009D0  4A44                     tst.w      D4
  933. 000009D2  670A                     beq        +0xC /* 000009DE */
  934. 000009D4  3004                     move.w     D0, D4
  935. label000009D6:
  936. 000009D6  4CDF 1810                movem.l    D4,A3,A4, [A7]+
  937. 000009DA  4E5E                     unlink     A6
  938. 000009DC  4E75                     rts
  939. label000009DE:
  940. 000009DE  244B                     movea.l    A2, A3
  941. 000009E0  528B                     addq.l     A3, 1
  942. 000009E2  4A12                     tst.b      [A2]
  943. 000009E4  6708                     beq        +0xA /* 000009EE */
  944. 000009E6  244C                     movea.l    A2, A4
  945. 000009E8  528C                     addq.l     A4, 1
  946. 000009EA  4A12                     tst.b      [A2]
  947. 000009EC  66C2                     bne        -0x3C /* 000009B0 */
  948. label000009EE:
  949. 000009EE  7000                     moveq.l    D0, 0x00
  950. 000009F0  60E4                     bra        -0x1A /* 000009D6 */
  951. fn000009F2:
  952. 000009F2  225F                     movea.l    A1, [A7]+
  953. 000009F4  301F                     move.w     D0, [A7]+
  954. 000009F6  205F                     movea.l    A0, [A7]+
  955. 000009F8  6604                     bne        +0x6 /* 000009FE */
  956. 000009FA  A014                     syscall    GetVol/PBHGetVol/HGetVol
  957. 000009FC  6002                     bra        +0x4 /* 00000A00 */
  958. label000009FE:
  959. 000009FE  A414                     syscall    GetVol/PBHGetVol/HGetVol, flags=4
  960. label00000A00:
  961. 00000A00  3E80                     move.w     [A7], D0
  962. 00000A02  4ED1                     jmp        [A1]
  963. fn00000A04:
  964. 00000A04  206F 0004                movea.l    A0, [A7 + 0x4]
  965. 00000A08  302F 0008                move.w     D0, [A7 + 0x8]
  966. label00000A0C:
  967. 00000A0C  1218                     move.b     D1, [A0]+
  968. 00000A0E  670A                     beq        +0xC /* 00000A1A */
  969. 00000A10  B200                     cmp.b      D1, D0
  970. 00000A12  66F8                     bne        -0x6 /* 00000A0C */
  971. 00000A14  2008                     move.l     D0, A0
  972. 00000A16  5380                     subq.l     D0, 1
  973. 00000A18  4E75                     rts
  974. label00000A1A:
  975. 00000A1A  4280                     clr.l      D0
  976. 00000A1C  4E75                     rts
  977. fn00000A1E:
  978. 00000A1E  206F 0004                movea.l    A0, [A7 + 0x4]
  979. 00000A22  2008                     move.l     D0, A0
  980. 00000A24  226F 0008                movea.l    A1, [A7 + 0x8]
  981. label00000A28:
  982. 00000A28  10D9                     move.b     [A0]+, [A1]+
  983. 00000A2A  66FC                     bne        -0x2 /* 00000A28 */
  984. 00000A2C  4E75                     rts
  985. fn00000A2E:
  986. 00000A2E  4E56 0000                link       A6, 0
  987. 00000A32  48E7 0C10                movem.l    -[A7], D4,D5,A3
  988. 00000A36  266E 0008                movea.l    A3, [A6 + 0x8]
  989. label00000A3A:
  990. 00000A3A  1613                     move.b     D3, [A3]
  991. 00000A3C  4883                     ext.w      D3
  992. 00000A3E  B67C 0020                cmp.w      D3, 0x20 /* ' ' */
  993. 00000A42  670A                     beq        +0xC /* 00000A4E */
  994. 00000A44  1613                     move.b     D3, [A3]
  995. 00000A46  4883                     ext.w      D3
  996. 00000A48  B67C 0009                cmp.w      D3, 0x9 /* '\t' */
  997. 00000A4C  6604                     bne        +0x6 /* 00000A52 */
  998. label00000A4E:
  999. 00000A4E  528B                     addq.l     A3, 1
  1000. 00000A50  60E8                     bra        -0x16 /* 00000A3A */
  1001. label00000A52:
  1002. 00000A52  7A00                     moveq.l    D5, 0x00
  1003. 00000A54  1613                     move.b     D3, [A3]
  1004. 00000A56  4883                     ext.w      D3
  1005. 00000A58  B67C 002D                cmp.w      D3, 0x2D /* '-' */
  1006. 00000A5C  6606                     bne        +0x8 /* 00000A64 */
  1007. 00000A5E  7A01                     moveq.l    D5, 0x01
  1008. 00000A60  528B                     addq.l     A3, 1
  1009. 00000A62  600C                     bra        +0xE /* 00000A70 */
  1010. label00000A64:
  1011. 00000A64  1613                     move.b     D3, [A3]
  1012. 00000A66  4883                     ext.w      D3
  1013. 00000A68  B67C 002B                cmp.w      D3, 0x2B /* '+' */
  1014. 00000A6C  6602                     bne        +0x4 /* 00000A70 */
  1015. 00000A6E  528B                     addq.l     A3, 1
  1016. label00000A70:
  1017. 00000A70  7800                     moveq.l    D4, 0x00
  1018. 00000A72  6016                     bra        +0x18 /* 00000A8A */
  1019. label00000A74:
  1020. 00000A74  244B                     movea.l    A2, A3
  1021. 00000A76  528B                     addq.l     A3, 1
  1022. 00000A78  1612                     move.b     D3, [A2]
  1023. 00000A7A  4883                     ext.w      D3
  1024. 00000A7C  3404                     move.w     D2, D4
  1025. 00000A7E  C4FC 000A                mulu.w     D2, 0xA /* '\n' */
  1026. 00000A82  D642                     add.w      D3, D2
  1027. 00000A84  3803                     move.w     D4, D3
  1028. 00000A86  987C 0030                sub.w      D4, 0x30 /* '0' */
  1029. label00000A8A:
  1030. 00000A8A  1613                     move.b     D3, [A3]
  1031. 00000A8C  4883                     ext.w      D3
  1032. 00000A8E  5243                     addq.w     D3, 1
  1033. 00000A90  45ED FE48                lea.l      A2, [A5 - 0x1B8]
  1034. 00000A94  1432 3000                move.b     D2, [A2 + D3.w]
  1035. 00000A98  4882                     ext.w      D2
  1036. 00000A9A  C47C 0004                and.w      D2, 0x4
  1037. 00000A9E  66D4                     bne        -0x2A /* 00000A74 */
  1038. 00000AA0  4A45                     tst.w      D5
  1039. 00000AA2  6706                     beq        +0x8 /* 00000AAA */
  1040. 00000AA4  3004                     move.w     D0, D4
  1041. 00000AA6  4440                     neg.w      D0
  1042. 00000AA8  6002                     bra        +0x4 /* 00000AAC */
  1043. label00000AAA:
  1044. 00000AAA  3004                     move.w     D0, D4
  1045. label00000AAC:
  1046. 00000AAC  4CDF 0830                movem.l    D4,D5,A3, [A7]+
  1047. 00000AB0  4E5E                     unlink     A6
  1048. 00000AB2  4E75                     rts
  1049. fn00000AB4:
  1050. 00000AB4  225F                     movea.l    A1, [A7]+
  1051. 00000AB6  301F                     move.w     D0, [A7]+
  1052. 00000AB8  205F                     movea.l    A0, [A7]+
  1053. 00000ABA  6604                     bne        +0x6 /* 00000AC0 */
  1054. 00000ABC  A007                     syscall    GetVolInfo/PBHGetVInfo/HGetVInfo
  1055. 00000ABE  6002                     bra        +0x4 /* 00000AC2 */
  1056. label00000AC0:
  1057. 00000AC0  A407                     syscall    GetVolInfo/PBHGetVInfo/HGetVInfo, flags=4
  1058. label00000AC2:
  1059. 00000AC2  3E80                     move.w     [A7], D0
  1060. 00000AC4  4ED1                     jmp        [A1]
  1061. 00000AC6  302F 0004                move.w     D0, [A7 + 0x4]
  1062. 00000ACA  C07C 00FF                and.w      D0, 0xFF
  1063. 00000ACE  B03C 0060                cmp.b      D0, 0x60 /* '`' */
  1064. 00000AD2  630A                     bls        +0xC /* 00000ADE */
  1065. 00000AD4  B03C 007A                cmp.b      D0, 0x7A /* 'z' */
  1066. 00000AD8  6204                     bhi        +0x6 /* 00000ADE */
  1067. 00000ADA  903C 0020                sub.b      D0, 0x20 /* ' ' */
  1068. label00000ADE:
  1069. 00000ADE  4E75                     rts
  1070. fn00000AE0:
  1071. 00000AE0  302F 0004                move.w     D0, [A7 + 0x4]
  1072. 00000AE4  C07C 00FF                and.w      D0, 0xFF
  1073. 00000AE8  B03C 0040                cmp.b      D0, 0x40 /* '@' */
  1074. 00000AEC  630A                     bls        +0xC /* 00000AF8 */
  1075. 00000AEE  B03C 005A                cmp.b      D0, 0x5A /* 'Z' */
  1076. 00000AF2  6204                     bhi        +0x6 /* 00000AF8 */
  1077. 00000AF4  D03C 0020                add.b      D0, 0x20 /* ' ' */
  1078. label00000AF8:
  1079. 00000AF8  4E75                     rts
  1080. fn00000AFA:
  1081. 00000AFA  4A2D FFFE                tst.b      [A5 - 0x2]
  1082. 00000AFE  670A                     beq        +0xC /* 00000B0A */
  1083. 00000B00  2078 0A7C                movea.l    A0, [0x00000A7C]
  1084. 00000B04  316F 0004 0018           move.w     [A0 + 0x18], [A7 + 0x4]
  1085. label00000B0A:
  1086. 00000B0A  A9F4                     syscall    ExitToShell
  1087. fn00000B0C:
  1088. 00000B0C  202F 0004                move.l     D0, [A7 + 0x4]
  1089. 00000B10  4840                     swap.w     D0
  1090. 00000B12  A032                     syscall    FlushEvents
  1091. 00000B14  4E75                     rts
  1092. fn00000B16:
  1093. 00000B16  594F                     subq.w     A7, 4
  1094. 00000B18  2F3C 5354 5223           move.l     -[A7], 0x53545223 /* 'STR#' */
  1095. 00000B1E  3F2F 000E                move.w     -[A7], [A7 + 0xE]
  1096. 00000B22  A9A0                     syscall    GetResource
  1097. 00000B24  226F 000C                movea.l    A1, [A7 + 0xC]
  1098. 00000B28  4211                     clr.b      [A1]
  1099. 00000B2A  201F                     move.l     D0, [A7]+
  1100. 00000B2C  6720                     beq        +0x22 /* 00000B4E */
  1101. 00000B2E  2040                     movea.l    A0, D0
  1102. 00000B30  2050                     movea.l    A0, [A0]
  1103. 00000B32  3018                     move.w     D0, [A0]+
  1104. 00000B34  322F 0004                move.w     D1, [A7 + 0x4]
  1105. 00000B38  B240                     cmp.w      D1, D0
  1106. 00000B3A  6E12                     bgt        +0x14 /* 00000B4E */
  1107. 00000B3C  7000                     moveq.l    D0, 0x00
  1108. label00000B3E:
  1109. 00000B3E  5341                     subq.w     D1, 1
  1110. 00000B40  6706                     beq        +0x8 /* 00000B48 */
  1111. 00000B42  1018                     move.b     D0, [A0]+
  1112. 00000B44  D1C0                     add.l      A0, D0
  1113. 00000B46  60F6                     bra        -0x8 /* 00000B3E */
  1114. label00000B48:
  1115. 00000B48  1010                     move.b     D0, [A0]
  1116. 00000B4A  5240                     addq.w     D0, 1
  1117. 00000B4C  A02E                     syscall    BlockMove/BlockMoveData
  1118. label00000B4E:
  1119. 00000B4E  205F                     movea.l    A0, [A7]+
  1120. 00000B50  504F                     addq.w     A7, 8
  1121. 00000B52  4ED0                     jmp        [A0]
  1122. fn00000B54:
  1123. 00000B54  206F 0004                movea.l    A0, [A7 + 0x4]
  1124. 00000B58  2248                     movea.l    A1, A0
  1125. 00000B5A  2008                     move.l     D0, A0
  1126. 00000B5C  4241                     clr.w      D1
  1127. 00000B5E  1219                     move.b     D1, [A1]+
  1128. 00000B60  6002                     bra        +0x4 /* 00000B64 */
  1129. label00000B62:
  1130. 00000B62  10D9                     move.b     [A0]+, [A1]+
  1131. label00000B64:
  1132. 00000B64  51C9 FFFC                dbf        D1, -0x6 /* 00000B62 */
  1133. 00000B68  4210                     clr.b      [A0]
  1134. 00000B6A  4E75                     rts
  1135.